1 CLS:SCREEN0,8,0:LOCATE0,0,0:FORI=0TO15:BOX(0,I*12)-(20,I*12+7),I:BOX(`,I*12+1)-(19,I*12+6),I:NEXT:CLEAR,,1:DEFGR$(0)=127,255,131,131,131,131,254,0:LOCATE0,12,0:PRINT" "GR$(0):LOCATE0,24:COLOR0,3:PRINT"RAZ";:LOCATE0,0,0:LINE(25,0)-(25,319):COLOR,8
2 INPENX,Y:IFNOTPTRIGTHENA=X:B=Y:GOTO2ELSEIFX=-1ORY=-1ORA=-1ORB=-1THEN2ELSEIFX>26THENLINE(A,B)-(X,Y),C:A=X:B=Y:GOTO2ELSEBEEP:FORI=0TO16:IFY>I*12ANDY<I*12+7THENC=I:IFC=16THENRUNELSELOCATE39,0,0:COLOR,C:PRINT" ";:IFC=8THENC=-9:GOTO2ELSE2ELSENEXT:GOTO2